<%@codepage="65001"%>
<%session.codepage="65001"%>
<!-- #include virtual=/inc/dbConn.asp -->
<!-- #include virtual=/inc/function.asp -->
<!-- #include virtual=/inc/action.header.inc.asp -->

<%	'## 파라미터 변수 선언부
	fullLotNos	= Request("fullLotNo")
	lotSubNo	= Request("lotSubNo")
	
	SQLTitle = "-- ■■■■ 공정별 메모 List up ■■■■"
	
	SQL = "SELECT orderMemo,addUser, processCd+'_'+CAST(rank as VARCHAR(10)) as processRank " & _
		  "FROM tblOrderMemo " & _
		  "WHERE flag='Y' AND lotYear+lotNo='" & fullLotNos & "' AND lotSubNo=" & lotSubNo 

	If xMode="debug" Then 
		Call showDebug(SQLTitle,SQL) 
	End If 
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.open SQL, DbCon, 1
	Response.write "<Memos>" & vbcrlf

	If Rs.eof Or Rs.bof Then 
	Else 
		Do Until Rs.eof Or Rs.bof
		
			Response.write "	<MemoList>" & vbcrlf
				Call mkXMLNode("orderMemo", rs("orderMemo"), 2)
				Call mkXMLNode("addUser", rs("addUser"), 2)
				Call mkXMLNode("processRank", rs("processRank"), 2)
			Response.write "	</MemoList>" & vbcrlf

		Rs.movenext
		Loop 
	End If
	Response.write "</Memos>" & vbcrlf
'	Call rsWithXML("Save OK!")
%>